home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / adrlist3.for < prev    next >
Text File  |  1993-06-30  |  2KB  |  49 lines

  1. / Adressen-Kurzliste
  2. ^17 ^E
  3. ^12^BAdressen-Kurzliste ^b^17
  4. /
  5. !#VORHERIGE_GRUPPE:= "' '"
  6.                                                                                                           Seite: #SEITE:8:0
  7.                                                                                                           Stand: #DATUM
  8. Nr.    Vorname    Name                           Strasse                        Land  PLZ   Ort
  9. ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
  10. /23456 1234567890 123456789012345678901234567890 123456789012345678901234567890 123   12345 123456789012345678901234567890
  11. /
  12. !LISTE:57                         // Druck Liste maximal bis Druckzeile 57
  13. /
  14. !#Anz:= #Anz + 1
  15. !WENN #Gruppe <> ' ' .AND. #Vorherige_Gruppe <> #Gruppe
  16.  
  17. #Gruppentitel  #Gruppe      // Ausgabe der Gruppe bei entsprechender Sortierung
  18.  
  19. !ENDEWENN
  20. /
  21. #NR    #VORNAME   #NAME                          #STRASSE                       #LAND   #PLZ  #ORT
  22. /
  23. !#vorherige_Gruppe:= #Gruppe
  24. !ENDELISTE
  25. /
  26. !WENN #LETZTESEITE
  27. ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
  28. Anzahl der aufgelisteten Adressen: #ANZ
  29. !ENDEWENN
  30. /
  31. !SEITENAUSWURF
  32. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  33.  
  34.  
  35.  
  36. !PLATZHALTER
  37.   #NR,               kun->kdnr
  38.   #VORNAME,          Substr( kun->n1, 1, 10)     // die ersten 10 Zeichen drucken
  39.   #NAME,             kun->n2
  40.   #STRASSE,          kun->strasse
  41.   #LAND,             kun->land
  42.   #PLZ,              kun->plz
  43.   #ORT,              kun->ort
  44.   #ANZ,              anz                         // Anzahl der Adressen zählen
  45.  
  46.   #GRUPPE,           IF( 'Gruppe'$ cKunSort, kun->Gruppe, IF( 'Status'$cKunSort, kun->Status, '') )
  47.   #GRUPPENTITEL,     IF( 'Gruppe'$ cKunSort, 'GRUPPE: ', IF( 'Status'$cKunSort, 'STATUS: ', ''))
  48.   #VORHERIGE_GRUPPE, vorhergruppe
  49. !ENDE PLATZHALTER